home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_85
/
vikngame.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
14KB
|
147 lines
10 DEFAULT
100 IF
1000 IF
1010 IF
1020 IF
1030 IF
1040 IF
1050 IF
1060 IF
1070 IF
1080 IF
1090 IF
110 UNTIL
1100 SPRITE
1110 IF
1120 BOOM
1130 IF
1140 IF
1150 IF
1160 IF
1170 FOR
1180 IF
1190 FOR
120 FOR
1200 FOR
1210 FOR
1220 FOR
1230 IF
1240 IF
1250 IF
1260 IF
1270 IF
1280 IF
1290 IF
130 SPRITE
1300 IF
140 PLAY
150 PEN
1500 CLS
1510 SCREEN COPY
1520 MODE
1530 GOSUB
1540 HIDE
1550 WINDOPEN
1560 CURS
1570 UNTIL
1580 MODE
1590 GOSUB
160 PAPER
1600 LOCATE
1610 CENTRE
1620 PALETTE
170 CENTRE
180 CLEAR KEY
190 IF
20 DIM
200 SWAP
2000 FOR
2010 IF
2020 NEXT
2030 FOR
2040 SPRITE
2050 NEXT
2060 WINDOPEN
2070 CENTRE
2080 PEN
2090 PRINT
210 READ
2100 PRINT
2110 PRINT
2120 PRINT
2130 PRINT
2140 PRINT
2150 PEN
2160 LOCATE
2170 LOCATE
2180 FOR
2190 SCREEN COPY
2200 GOSUB
2500 GOSUB
2510 INPUT
2520 IF
2530 IF
2540 LOCATE
2550 INPUT
2560 IF
2570 IF
2580 FOR
2590 FOR
2600 IF
2610 MID$
2620 NEXT
30 GOSUB
3000 FADE
3010 PRINT
3020 PRINT
3030 PRINT
3040 PRINT
3050 PRINT
3060 PRINT
3070 LOCATE
3080 SCREEN COPY
3500 DATA
3510 DATA
3520 DATA
3530 DATA
3540 DATA
3550 DATA
3560 DATA
3570 DATA
3580 DATA
3590 DATA
3600 DATA
40 MODE
50 LOCATE
500 VARNAME
510 VARNAME
520 IF
530 IF
540 IF
550 IF
560 IF
570 IF
580 IF
590 IF
60 CLEAR KEY
600 VARNAME
610 GOSUB
620 REPEAT
630 IF
640 HIDE
650 IF
660 VARNAME
670 GOSUB
680 REPEAT
690 IF
70 REPEAT
700 HIDE
710 IF
720 VARNAME
730 VARNAME
740 LIMIT MOUSE
750 SPRITE
760 UPDATE
80 IF
90 IF